﻿Public Class lokhoan
    Private _malk As String
    Private _mact As String
    Private _dklokhoan As Single
    Private _chieusau As Single
    Private _gocnghieng As Single
    Private _chieucaotang As Single
    Private _chieusaukt As Single
    Private _chieucaocotnuoc As Single
    Private _ghichu As String
    Public Property MaLoKhoan() As String
        Get
            Return _malk
        End Get
        Set(ByVal value As String)
            _malk = value
        End Set
    End Property
    Public Property MaCongTruong() As String
        Get
            Return _mact
        End Get
        Set(ByVal value As String)
            _mact = value
        End Set
    End Property
    Public Property GhiChu() As String
        Get
            Return _ghichu
        End Get
        Set(ByVal value As String)
            _ghichu = value
        End Set
    End Property
    Public Property DuongKinhLoKhoan() As Single
        Get
            Return _dklokhoan
        End Get
        Set(ByVal value As Single)
            _dklokhoan = value
        End Set
    End Property
    Public Property ChieuSauLoKhoan() As Single
        Get
            Return _chieusau
        End Get
        Set(ByVal value As Single)
            _chieusau = value
        End Set
    End Property
    Public Property GocNghieng() As Single
        Get
            Return _gocnghieng
        End Get
        Set(ByVal value As Single)
            _gocnghieng = value
        End Set
    End Property
    Public Property ChieuCaoTang() As Single
        Get
            Return _chieucaotang
        End Get
        Set(ByVal value As Single)
            _chieucaotang = value
        End Set
    End Property
    Public Property ChieuSauKhoanThem() As Single
        Get
            Return _chieusaukt
        End Get
        Set(ByVal value As Single)
            _chieusaukt = value
        End Set
    End Property
    Public Property ChieuCaoCotNuoc() As Single
        Get
            Return _chieucaocotnuoc
        End Get
        Set(ByVal value As Single)
            _chieucaocotnuoc = value
        End Set
    End Property
    Public Sub New(ByVal malk As String, ByVal macongtruong As String, ByVal ghichu As String, ByVal chieucaotang As Single, ByVal dklokhoan As Single, ByVal chieusaukt As Single, ByVal chieusau As Single, ByVal chieucaocotnuoc As Single, ByVal gocnghieng As Single)
        Me._malk = malk
        Me._mact = macongtruong
        Me._ghichu = ghichu
        Me._dklokhoan = dklokhoan
        Me._chieusau = chieusau
        Me._chieusaukt = chieusaukt
        Me._gocnghieng = gocnghieng
        Me._chieucaotang = chieucaotang
        Me._chieucaocotnuoc = chieucaocotnuoc
    End Sub
End Class
